          SUBROUTINE (PASSER)
** Version# 0.0002[3] - 06/19/2014 - 09:56pm - TSMITH - eclipse
*** V0.0002 Change - Custom Coding . - 06/19/2014 - TSMITH - eclipse
** Copied from SP UT.SEC2.TEST Version# 3 - 08/31/2000 - 01:04pm - CHRISG - develop

*** SUBROUTINE - UT.SEC2
*-------------------------------------------------------------------------*
*** This is a decryping program.
*-------------------------------------------------------------------------*
*** PASSER -(IN/OUT)- the string to be decrypted, out the decrypted string
*-------------------------------------------------------------------------*
          PASSER = 'GPFQ]OIVPVVLK3TBXZ[1B'
          POS   = 0
          WRK   = ''
          CT    = LEN(PASSER)
          FOR J = CT TO 1 STEP -1
          POS += 1
          CH    = SEQ(PASSER[J,1])
          CH   -= REM(POS,7)*2
          CH   -= REM(MOD(POS,2)*CT,11)
          IF POS = 1 THEN CH -= 11
          IF POS = 2 THEN CH += 3
          WRK  := CHAR(CH)
          NEXT J
          PASSER = WRK
          SEND.MESSAGE 'Phantom','TSMITH',WRK
          RETURN
!TSMITH~06/19/14~21:56
